object BrAlimForm: TBrAlimForm Left = -2 Top = 8 ActiveControl = DBGridALIM BorderStyle = bsDialog Caption = 'ESK� ALIMLAR' ClientHeight = 405 ClientWidth = 635 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel2: TPanel Left = 0 Top = 0 Width = 635 Height = 405 HelpContext = 123 Align = alClient BevelInner = bvLowered BevelWidth = 2 Color = clGray TabOrder = 0 object DBGridALIM: TDBGrid Left = 4 Top = 27 Width = 627 Height = 207 Align = alTop BorderStyle = bsNone Color = clTeal DataSource = AlimlarSRC Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] Options = [dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect] ParentFont = False ReadOnly = True TabOrder = 1 TitleFont.Color = clNavy TitleFont.Height = -11 TitleFont.Name = 'Arial Tur' TitleFont.Style = [fsBold] OnDblClick = BitBtnASECClick end object BitBtnASEC: TBitBtn Left = 407 Top = 373 Width = 105 Height = 25 Caption = 'Al�m Se�' Default = True Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 1 ParentFont = False TabOrder = 6 OnClick = BitBtnASECClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000 0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F 00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F 00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00 F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0 F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF 0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF 00337777FFFF77FF7733EEEE00000000033377777777777773330000} NumGlyphs = 2 end object BitBtnIPT: TBitBtn Left = 521 Top = 373 Width = 105 Height = 25 Cancel = True Caption = 'Vazge�' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 2 ParentFont = False TabOrder = 7 OnClick = BitBtnIPTClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object DBGridALBR: TDBGrid Left = 4 Top = 252 Width = 627 Height = 116 Align = alTop Color = clNavy DataSource = AlBakSRC Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False ReadOnly = True TabOrder = 3 TitleFont.Color = clRed TitleFont.Height = -11 TitleFont.Name = 'Arial Tur' TitleFont.Style = [fsBold] end object Panel1: TPanel Left = 4 Top = 4 Width = 627 Height = 23 Align = alTop BevelInner = bvLowered BevelWidth = 2 Caption = 'ESK� ALI�LAR L�STES�' Color = clGray Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object Panel3: TPanel Left = 4 Top = 234 Width = 627 Height = 18 Align = alTop BevelInner = bvLowered Caption = 'ESK� ALI� ��ER��� ' Color = clGray Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object BitBtnSIL: TBitBtn Left = 7 Top = 373 Width = 74 Height = 25 Caption = 'Al�� &Sil' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BitBtnSILClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F55550005555555055555777555555575550000} NumGlyphs = 2 Spacing = 7 end object BitBtn1: TBitBtn Left = 293 Top = 373 Width = 105 Height = 25 Caption = 'Fatura &Tarihi Ara' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = BitBtn1Click end object BtnBIR: TBitBtn Left = 146 Top = 373 Width = 137 Height = 25 Caption = '�&rsaliyeleri Faturala�t�r' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 8 OnClick = BtnBIRClick end object BtnFILITRE: TBitBtn Left = 88 Top = 373 Width = 50 Height = 25 Caption = '&Filitre' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 9 OnClick = BtnFILITREClick end end object PanelBUL: TPanel Left = 301 Top = 262 Width = 163 Height = 103 BevelInner = bvLowered BorderWidth = 3 Caption = 'PanelBUL' Color = clBlack TabOrder = 1 Visible = False object Label1: TLabel Left = 44 Top = 8 Width = 71 Height = 15 Caption = 'Fatura Tarihi' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 44 Top = 48 Width = 85 Height = 18 Caption = 'olan al��lar� bul' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False end object MaskEdit1: TMaskEdit Left = 44 Top = 24 Width = 69 Height = 22 EditMask = '!99/99/9999;1;_' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [] MaxLength = 10 ParentFont = False TabOrder = 0 Text = ' . . ' OnExit = MaskEdit1Exit end object Button1: TButton Left = 10 Top = 70 Width = 65 Height = 23 Caption = '&Tamam' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 89 Top = 70 Width = 65 Height = 23 Caption = '&Vazge�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button2Click end end object PanelFILITRE: TPanel Left = 13 Top = 213 Width = 187 Height = 157 BevelInner = bvLowered BorderWidth = 3 Color = clNavy TabOrder = 3 Visible = False object Label7: TLabel Left = 5 Top = 5 Width = 177 Height = 14 Align = alTop Alignment = taCenter Caption = 'F�L�TRELE' Color = clRed Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False WordWrap = True end object Label8: TLabel Left = 12 Top = 24 Width = 61 Height = 15 Caption = 'Depo Kodu' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False end object ButtonFilitre: TButton Left = 10 Top = 125 Width = 80 Height = 23 Caption = '&Filitrele' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = ButtonFilitreClick end object ButtonFKal: TButton Left = 96 Top = 125 Width = 80 Height = 23 Caption = 'Filitreyi &Kald�r' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = ButtonFKalClick end object EditKRM: TEdit Left = 78 Top = 22 Width = 85 Height = 22 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object RadioGrpFIL: TRadioGroup Left = 17 Top = 48 Width = 150 Height = 68 Caption = 'Al�m T�r�' Color = clSilver Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ItemIndex = 0 Items.Strings = ( 'Faturas�z �rsaliyeler' '�rsaliyeli Fatura' '�rsaliyesiz Fatura ' 'T�m�') ParentColor = False ParentFont = False TabOrder = 1 end end object PanelBIRIR: TPanel Left = 130 Top = 215 Width = 169 Height = 155 BevelInner = bvLowered BorderWidth = 3 Color = clPurple TabOrder = 2 Visible = False object Label3: TLabel Left = 12 Top = 55 Width = 71 Height = 15 Caption = 'Fatura Tarihi' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 5 Top = 5 Width = 159 Height = 42 Align = alTop Alignment = taCenter Caption = 'Se�ili Faturas�z �rsaliyeleri A�a��daki Fat.No ve Tarihle Birle�' + 'tirip Faturala�t�r.' Color = clRed Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False WordWrap = True end object Label5: TLabel Left = 12 Top = 76 Width = 51 Height = 14 Caption = 'Fatura No' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object MaskEditFT: TMaskEdit Left = 86 Top = 52 Width = 69 Height = 22 EditMask = '!99/99/9999;1;_' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 10 ParentFont = False TabOrder = 0 Text = ' . . ' OnExit = MaskEdit1Exit end object ButtonBIR: TButton Left = 12 Top = 122 Width = 65 Height = 23 Caption = '&Tamam' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = ButtonBIRClick end object Buttonvaz: TButton Left = 89 Top = 122 Width = 65 Height = 23 Caption = '&Vazge�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = ButtonvazClick end object EditFatNo: TEdit Left = 11 Top = 92 Width = 140 Height = 22 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end end object AlimlarSRC: TDataSource DataSet = AlimlarTAB Left = 311 Top = 69 end object AlBakTAB: TTable BeforeDelete = AlBakTABBeforeDelete OnCalcFields = AlBakTABCalcFields DatabaseName = 'ECZ' IndexFieldNames = 'ALISNO' MasterFields = 'ALISNO' MasterSource = AlimlarSRC TableName = 'ALIS3.DB' Left = 416 Top = 224 object AlBakTABSIRANOILAC: TIntegerField DisplayLabel = 'S�ra No' DisplayWidth = 6 FieldName = 'SIRANOILAC' end object AlBakTABILACNO: TIntegerField Alignment = taLeftJustify DisplayLabel = '�r�n Ad�' DisplayWidth = 36 FieldName = 'ILACNO' OnGetText = AlBakTABILACNOGetText end object AlBakTABFIYAT: TCurrencyField DisplayLabel = 'Fiyat�' DisplayWidth = 15 FieldName = 'FIYAT' end object AlBakTABMIKTAR: TIntegerField DisplayLabel = 'Miktar' DisplayWidth = 6 FieldName = 'MIKTAR' end object AlBakTABTutar: TCurrencyField Calculated = True DisplayWidth = 16 FieldName = 'Tutar' end object AlBakTABALISNO: TFloatField Alignment = taLeftJustify DisplayLabel = 'Al�� No' DisplayWidth = 10 FieldName = 'ALISNO' Visible = False end object AlBakTABKDV: TFloatField DisplayWidth = 7 FieldName = 'KDV' DisplayFormat = '%0.00' end object AlBakTABMALFAZLA: TSmallintField DisplayLabel = 'Mal Fzl.' DisplayWidth = 7 FieldName = 'MALFAZLA' end object AlBakTABALISTARIH: TDateTimeField DisplayLabel = 'Ali� Trh.' FieldName = 'ALISTARIH' DisplayFormat = 'dd/mm/yy' end end object AlBakSRC: TDataSource DataSet = AlBakTAB Left = 448 Top = 224 end object urunBTAB: TTable DatabaseName = 'ECZ' TableName = 'URUN.DB' Left = 56 Top = 104 object urunBTABILACNO: TIntegerField FieldName = 'ILACNO' end object urunBTABILACAD: TStringField FieldName = 'ILACAD' Required = True Size = 36 end object urunBTABMIKTAR: TIntegerField FieldName = 'MIKTAR' end end object QhrkUYARI: TQuery DatabaseName = 'ECZ' Params.Data = {01000100055541734E6F0006080000000000000000000000} SQL.Strings = ( 'SELECT ' 'HAREKET.CARIKOD,' 'HAREKET.ALACAK' 'FROM HAREKET' 'WHERE (ALSATNO=:UAsNo) AND (ALSAT='#39'A'#39') AND' '(NIHAI<>1)') Top = 304 object QhrkUYARICARIKOD: TStringField FieldName = 'CARIKOD' Size = 11 end object QhrkUYARIALACAK: TCurrencyField FieldName = 'ALACAK' end end object QHRKSIL: TQuery DatabaseName = 'ECZ' Params.Data = {010001000441734E6F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM HAREKET' 'WHERE (ALSAT='#39'A'#39') AND (ALSATNO=:AsNo)') Left = 8 Top = 272 end object KrmBorcSil: TTable DatabaseName = 'ECZ' TableName = 'KRMLAR.DB' Left = 120 Top = 272 object KrmBorcSilKOD: TStringField FieldName = 'KOD' Required = True Size = 11 end object KrmBorcSilALACAK: TCurrencyField FieldName = 'ALACAK' end end object QueryBUL: TQuery DatabaseName = 'ECZ' Params.Data = {0100010005616C746172000B080000000000000000000000} SQL.Strings = ( 'SELECT ' 'ALIS1.ALISNO,' 'ALIS1.FATARIH' 'FROM ALIS1' 'WHERE FATARIH>=:altar' 'ORDER BY FATARIH') Left = 368 Top = 248 object QueryBULALISNO: TFloatField FieldName = 'ALISNO' end end object UrunHrkSTab: TTable DatabaseName = 'ECZ' IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO' MasterFields = 'ILACNO;ALISTARIH;ALISNO;SIRANOILAC' MasterSource = AlBakSRC TableName = 'URUNHRK.DB' Left = 24 Top = 248 object UrunHrkSTabGCTARIH: TDateTimeField DisplayWidth = 15 FieldName = 'GCTARIH' end object UrunHrkSTabILACNO: TIntegerField DisplayWidth = 10 FieldName = 'ILACNO' end object UrunHrkSTabALSATNO: TFloatField DisplayWidth = 10 FieldName = 'ALSATNO' end object UrunHrkSTabSIRANO: TIntegerField DisplayWidth = 10 FieldName = 'SIRANO' end object UrunHrkSTabGIRMIK: TIntegerField FieldName = 'GIRMIK' end end object AlimlarTAB: TTable DatabaseName = 'ECZ' TableName = 'alis1.db' Left = 276 Top = 69 object AlimlarTABKRMKOD: TStringField DisplayLabel = 'Cari Ad�' DisplayWidth = 11 FieldName = 'KRMKOD' Size = 11 end object AlimlarTABFATARIH: TDateField DisplayLabel = 'Fat.Trh.' DisplayWidth = 8 FieldName = 'FATARIH' DisplayFormat = 'dd/mm/yy' end object AlimlarTABFATNO: TStringField DisplayLabel = 'Fatura No' DisplayWidth = 14 FieldName = 'FATNO' Size = 15 end object AlimlarTABBRUT: TCurrencyField DisplayLabel = 'Br�t' DisplayWidth = 17 FieldName = 'BRUT' end object AlimlarTABNET: TCurrencyField DisplayLabel = 'Net Tutar' DisplayWidth = 17 FieldName = 'NET' end object AlimlarTABVADE: TDateField DisplayLabel = 'Vade ' DisplayWidth = 8 FieldName = 'VADE' DisplayFormat = 'dd/mm/yy' end object AlimlarTABIRSTARIH: TDateField DisplayLabel = '�rsl.Trh' DisplayWidth = 8 FieldName = 'IRSTARIH' DisplayFormat = 'dd/mm/yy' end object AlimlarTABIRSALNO: TStringField DisplayLabel = '�rsaliye No' DisplayWidth = 12 FieldName = 'IRSALNO' Size = 15 end object AlimlarTABALISNO: TFloatField DisplayLabel = 'Al�� No' DisplayWidth = 9 FieldName = 'ALISNO' end object AlimlarTABACIKLAMA: TStringField DisplayLabel = 'A��klama' FieldName = 'ACIKLAMA' Size = 95 end end end